home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtable.dxr / 00027_v scroll thumb.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  1.2 KB  |  36 lines
  1. property ancestor
  2. global gDBTableVarList
  3.  
  4. on new me, theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, descendant
  5.   if objectp(descendant) then
  6.     ancestor = new(script("slider thumb"), theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, descendant)
  7.   else
  8.     ancestor = new(script("slider thumb"), theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, me)
  9.   end if
  10.   return me
  11. end
  12.  
  13. on performFunction me
  14.   MyObj = getaProp(gDBTableVarList, GetObjProp())
  15.   TableObj = GetTableObj(MyObj)
  16.   topRow = getTopRow(TableObj)
  17.   if me.pSetting < topRow then
  18.     scrollUp(TableObj)
  19.   else
  20.     if me.pSetting > topRow then
  21.       scrollDown(TableObj)
  22.     end if
  23.   end if
  24.   return me
  25. end
  26.  
  27. on disable me
  28.   me.pIsDisabled = 1
  29.   set the loc of sprite the pThumbChannel of me to point(-9999, -9999)
  30.   return me
  31. end
  32.  
  33. on buttonLoc me
  34.   return me
  35. end
  36.